(byte-optimize-lapcode): Correctly

distinguish byte-constant from operations on variables.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 56dcc9e24275b387f0c89f2f4f1580a8ec89ea54..be958e53abb51093d9dd1935be9a2fb2c0d57ee1 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1826,7 +1826,7 @@ may generate incorrect code.")
       (setq lap0 (car rest)
            lap1 (nth 1 rest))
       (if (memq (car lap0) byte-constref-ops)
-         (if (eq (cdr lap0) 'byte-constant)
+         (if (not (eq (car lap0) 'byte-constant))
              (or (memq (cdr lap0) byte-compile-variables)
                  (setq byte-compile-variables (cons (cdr lap0)
                                                     byte-compile-variables)))